home *** CD-ROM | disk | FTP | other *** search
/ Softline PAY-CD / Softline PAY-CD(1994).iso / programm / allclear / demo / disk1 / examples / quality.cmp / TQM2.ACL < prev    next >
Encoding:
Text File  |  1993-09-29  |  811 b   |  53 lines
  1. Pharmacy Prescription TQM Team
  2.  
  3. Start.
  4. Ward Team decides to discharge patient.
  5. {*YESNO No Yes}
  6. -LAB1
  7. Is lab work ready?
  8.     (No) Wait.
  9.     >LAB1
  10.     (Yes)
  11.     -COMPLETE1
  12.     Is eligibility completed?
  13.         (No)
  14.         Contact physician.
  15.         >COMPLETE1
  16.         (Yes)
  17.         -CONTACT1
  18.         Are pages 1 & 2 signed?
  19.             (No)
  20.             Contact physician.
  21.             >CONTACT1
  22.             (Yes)
  23.             -COMPLETE2
  24.             Is entire form complete?
  25.                 (No)
  26.                 Contact physician.
  27.                 >COMPLETE2
  28.                 (Yes)
  29.                 Is escort available?
  30.                     (No) Contact an RN with keys to dumbwaiter.
  31.                     -RN
  32.                     Is an RN available?
  33.                         (No)
  34.                         Wait.
  35.                         >RN
  36.                         (Yes)
  37.                         -DUMBW
  38.                         Dumbwaiter available?
  39.                             (No)
  40.                             Wait.
  41.                             >DUMBW
  42.                             (Yes)
  43.                         ?end
  44.                     ?end
  45.                     (Yes)
  46.                 ?end
  47.             ?end
  48.         ?end
  49.     ?end
  50. ?end
  51. Send to pharmacy.
  52. End.
  53.